﻿Imports System.Data.SqlClient
Imports Bussines.entity
Public Class lugarDAL
    Private conexion As New conexion
    Public Function listarLugares() As DataTable
        Dim dt As New DataTable
        Dim cmd As New SqlCommand()
        cmd.CommandType = CommandType.StoredProcedure
        cmd.CommandText = "sp_listarLugares"
        Try
            cmd.Connection = conexion.abrir()
            dt.Load(cmd.ExecuteReader())
            cmd.Dispose()
            conexion.Cerrar()
            Return dt
        Catch ex As Exception
            Return dt
        Finally

        End Try
    End Function

End Class
